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SEQ 0001 



IDEWTIFICATTOM 



P^'UDUCT COOES 



AC-^884B-MC 



PRODUCT nhm% 



CJBEhnO M7855 BUS TPSTER '^OnULK 



PRODUCT nklKt 



SKPfEy^BER 197B 



DEC/Xll SUPPORT GROUP 



THE INFORMATION lU THIS DQCUMEUT TS SUBJECT TO CHAMGF 
WITHOUT NOTICE kHB SHOULD NOT BE COPISTRUgO kS A COM?kf ITMEJiT 
BV OIGITJ^L ?^QriIPHEf»jT CORPORATIOM* DIGITAL FQUIPNF?»JT 

CORPOPATinN ASSUMES MO RFSPOMSIB TLIT? FUR AMY FRRORS THAT 
?-fAY APPEAL? Jn THIS MAMUIL« 

THE SOFTWARE DESCRIBED lU THIS DQCU^EMT IS FURNISHED TO THE 
PURCHASFR UNDER A LICENSE FOR US^ ON A SIWGLE COHPUTER 
SYSTEM A^O CA'I 8E COPIED (^flTH INCLUSIOM 0?^ DIGITALS 
COPYRIGHT NOTICE) Ql^LY FOP USE IN SUCH SYSTEM^ EXCEPT AS MAY 
OTHERWISE BE PRG¥IDEO I^ WRITING BY DIGITAL* 

DIGITAL EQUIPMENT CORPORATION! ASSUMES NO RESPOMS IBIL ITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPNFNT THAT IS 
i^OT SUPPLIED BY DIGITAL* 

COPYRIGHT (C) 1975rl97B DIGITAL EQUI^NENT CORPORATION 
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SEQ 0002 



fhBLK OF rO^TE^^TS 



1«0 


ABSTRACT 


2.0 




3.0 


PISS OEPIMITin^^ 


4.U 




5»0 


CnNFIGlfRATIO?^ REQfflPEME^TS 


6.0 


DEVTCE/OPTITM SElliP 


7.0 


TFST Sfc:OUFNCg 


8«0 


UPfc.^ATtON OPTIUMS 


9.0 
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SEQ 0003 



1«0 ^8Sr5?ACT 



B^%A IS kH inmo THkf ZkH wkmLE Fm^ i tu 12 nNisns exercisers. the 

HODIILF ^ILL HAVE THE nBE(S) miHQ DATI{S)^ r)ATOfl(S)# DATlP(S)r AND 

DSTOCS), THKU CHECKS FO^ CORRECT DATA TRANSFERS. THESE TRANSFERS ARE 
DONE FIRST 0"^ AN ?^PR LE^EL AMD INTERRUPTS \«fITH A BR7^THEW THE REQUEST 
IS SEQUFI^TIALLV Ln«EKFD TO A RR4« 

2,0 REQUTRENENTS 



HARDWIRES 

1 TO 12 UBE(S)? ¥ITrt MORE THAN QHE URS^ ALL SHOULD HAVE Ml JUMPER 
EXCEPT THE OBF THAT IS THE FURTHEST FROM THE PROCESSOR ELECTRICALLY, 

SOFTfiA^ES 

STORAGE?: BEA REQUIRES! 

1« DECIMAL ^ORDS: 1371 
2« OCTAL WOROSS 02533 
3. OCTAL BYTES: 5266 

3»0 ^ASS DEFIMITTO'i 



1 ITERATION CONSISTS OF SETTING UP ONE OR HORS UBE(S) TO DO DATA 
TRANSFERS^ THEN CHECKING THOSE TRAf^SFERS, 1 PASS WILL EQUAL 12^000 
ITERATtOMS, 

4«0 FXFCUTION TI^E 

QHE PASS WILL RUN IN APPROX. I NINUTE^ RUNNING ALONE ON AN 11/45, 
5«0 CONFIGURATION REQUIREMENTS 

DEFAULT PARi|*^FTERS2 0E7ADR= 1^0000; VECTOR=510; 8Rl=7r 9R2=6| DEVCNT=l 
REQUIRED ^ARA^ENTERS; NONE 

t>,0 DfcVrCE/OPTTON SETUP 



1 TO 12 U8E(S>? ^ITH HORE THAN ONE UBE, ALL SHOULD HAYE Ml JUMPER 
EXCEPT THE HBF THAT IS THE FURTHEST FROM THE PROCESSOR ELECTRIC ALLY* 
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7.0 TEST SEQnEMCE 

LOAD DE¥TCR IMTR YSCTQRS A?IO GET REkJ) AMD WRITE BUFFER STZFS* 
INTTTALI7.E REGISTERS, 

GET PHYSICAL ADDRESSES FOR WRITE A^D READ BUFFERS. 
D« RE^D^BUFFER^AREA^^'^^^^ ^^l*^^ BflFFER A??EA| AMD SET UP 

E. CHECK- FOR DEflCSS AND IF NOME LEFTr GO TO 
F« LOAD DE91CE REGISTERS FOR DESIRED TRANSFER^ 
G» GO BACK" TO E« 

H« SET OFF ALL DEVICES S IMULTAI^EOUSL Y« 

k'AIT FOR T^ETR I^^TERPUPTS. 
J» IF MOT ALL DEVICES TMTERRUPTfiD^ GO BACK TO f« 
K« CHECK T^E BUFFER AREAS FOR CORRECT TRANSFERS. 
L* ROTATE REQUEST LEVELS kUD DATA PATTERNS. 

1?=" THIS IS MOT THE FI'ilAL TTERATTOM^ GO BACK TO D« 
M« INDICATE EI^D OF PASS A^^D GO BAC?C ?0 

8«0 OPERATIOM QPTIOJ^S 



THE FIRST REGISTER ADDRESS OF EAC'I UBE PROCEEDS IH IMCREMENTS OF 20» 
fcVERy BIT OF OVIDl CORRFSPONOS TO A PARTICULAR UBE ADDRESS REIflG 
PPESS^^T? I«E«^ BIT SET - UBE ADDRESS OF 170000^ BIT I SET = UBE 
ADDRESS OF I70020r BIT 2 SET = U3E ADDRESS OF 170040# ETC« 

THE UBe(S) CAN BE QH THE BUS I"^ A^IY ADDRESSING SEQUENCE, THE ONLY 
REQUIPEME^IT IS THAT DVIDl REFLECTS THE ADDRESSES OF EXISTING U8E(S)» 
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SEQ 0005 



9,0 ^OM-STAMOARO PRINTOUTS 

ALL PPINTOOT RA^Tfc THE STAMOftRD FORMATS DESCRIBED in THE DEC/Kll 
DOCdMSNT ^4lfii THE FOLLOWING ADDITIONS PRINTED BELOW ITS 

1. FOR DATA TRANSFER ERRORS (DATI/P OF OATO/B) THE COMtE^TS OF 
THF FOLLOWING REGISTERS PRE-PRINTEO AS ilELL AS THE MEMORY 
LOCATION AND CONTENTS* THERE SHOULD BE A DISCREPANCY BETWEEN 
BEDB AND CONTENTS OF NE^ORY ON ERRORS, 

BfcOB BFCC BEBA 8ECR1 8ECR2 NEM-ADDR ^EM-CONTFNTS 

2. FOR "INTERRUPTS ON ERROR - I^OT ON DONli" THE ABOfE REGISTERS 
'4ILL ALSO BE PRINTED QljT EXCEPT DISREGARD THE HFMORY ADDRESS 
AND CONTENTS SINCE IT TS NOT PREVIOUSLY SET UP, 

3. FOR "NOT ALL DEVICES INTERRUPTING" ERROR^ ONLY TWO ADDITIONAL 
REGISTERS ARE PRINTED - DV AND MASK. D¥ IS A TEMPORARY 
STORAGE LOCATION FOR DVTDl AND MASK IS THE LOCATION 
INDICATING WHICH DEVICES INTERRUPTED* BIT COMPARISON OF 
THESE rm REGISTERS WILL INDICATE WHICH DEVICES DTD OR DID 
NOT TI^TERRUPT. 

DV ^ASK 
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MnOULF l40000,B6aB ,175000,510r7,6rirl2000,73 
.TITLF BE&B DBC/Xll SYSTEM EXERCISER MODULE 
5 DDXCOM VERSION 6 23-MAV-78 



♦ft****** 



Irgin: 
modmam: 
xflug: 
aodr: 

VKCTOP: 

BRi: 

8R2t 
DVIDl: 

SRi: 

SR2: 
SR3: 

STAT: 

init: 

SPOINT: 

pascmt: 
icont: 

ICOHNT: 

sofcnt: 
hrocht: 

SOFPAS: 

hrdpas: 

SYSCNT: 

rahium: 

CONFIG: 
RESl: 

RES2: 
SVRO: 

S¥Rl: 
SYR2: 
SVR3: 
SVR4: 

SVR??: 

SVR6: 
CSRA: 
SBAOR: 
acsr: 

^ASADR: 

astat: 

errtyp: 

asb: 

a»as: 

rstrt: 

boto: 

wdfr: 

wuz 

immz 



.ASCII 

-RVTE 

170000+ 

510+0 

.BYTE 

.BYTE 

+ 1 

□ PEM 
0PE1 
OPEN 
OPS'* 

140000 

START 

HOOSP 

?2000 











□ PEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

□ PEN 
OPEN 

□ PEN 
OPEN 
RESTRT 
OPEN 
OPEN 
OPEN 
73 

.REPT 

.NLIST 



/BEAB 

OPEN 



PRTY7+ 
PRfY6+ 



************************** ***ft***af«r***« ft* 

; MODULE NAME. 

;USFD TO KEF.P TRACK OF ^BUFF USAGE 
?1ST DEVICE ADDR. 
;1ST DEVICE VECTOR. 



********** 



LEVFL 

?DEVICE INDICATOR I. 
fSWiTCH HgGISTBP I 
jSbllTCH R!^GISTER 2 
;SMITC« REGISTER 1 

ft* *4***lr§^0^9*§ii§HX§S** **************** ft* *** 

; status «ord. 
;w0dule start addr. 
?m0dule stack pointer, 
j pass counter- 

j# of iterations per pass=12000 
;loc to count iterations 
;loc to s8ve total soft errors 
jloc to save total hard errors 
;loc to save soft errors per pass 
?loc to save hard errors per pass 
?» of sys errors accumulated 
jholds random # when rand macro is called 
; reserved for monitor use 
; reserved for monitor use 
;reserved for monitor use 
;loc to save ro. 

;LOC TO SAVE Rl- 

?LOC TO SAVE P2. 

;LOC TO SAVE R3. 

;LOC TO SAVE R4- 

;fc8c t8 IJifE Pi- 

jADDfi OF CURRENT CSR. 

;ador of hood data^ op 

;CONTENTS OF CSR. 

;addr of bad data, or 
;status reg contents. 
;type of error 
;expected data. 
; actual data. 

jrestart addhfss after end of pass 

JWORDS to memory per ITBRATinM 
;HORDS FROM MEMORY PER ITERATION 
;» OF INTERRUPTS PER ITERATION 
;M0DULE IDENTIFICATION M0HBFR=73 

?module stack starts here. 
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Zlist 



IP - mm 



III 000224' moosp: •'^""'^ 

253 J ****** ********************»******4*************** ******************** ft* 

264 
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PI: 

P2: 
P3: 
P4; 

ROTCNT; 
SIMLcn; 
DV: 
MASK: 

B12Tl5; 
BfJFSZ: 



SA¥R5: 
BYTCC: 
MCC: 

RCC: 

OOCNT: 

DICMT: 

EABIT: 

RBUF: 

sfBOF: 

hrofva: 
aRUFPA: 

WBUFEA: 

RRUFVA: 

H80FPA: 

R9UFEA: 

RBUFSZ: 

RBFAOR: 

ENDRBF: 

ilRFADR: 

EHOWBF: 

XFRl: 

XFH2: 

XFR3: 

XFR4: 

RQLVL: 

ERBITS: 

DVREGS: 

OR: 

cc: 

ba: 

CRl: 

CR2: 

BADMEM: 





137777 



100000 


170014 



170000 

740 

160 

m 

140 






sIRTOUT 

QPEM 

OPEN 

RBEOIM 

OPEN 

QOEN 

360 









4100 
bSOO 
22500 
3100 

7?40 







BAOR 



;IST DATA PATTERN 
;2N0 DATA PATTERM 
;.1hD 



. IHD DATA PATTERN 
;4TH DATA PATTERM 
; COUNTER FOR | OF TIMES DATA ROTATED 

;ADDR TO SET OFF ALL DEVS S IHfILT AHEOUSLY 

;temp storage for dvioi 
jusrd to drop amy dev not interrupting 



IWORKING STORAGE FOR D¥ID1 
JOSRO Ty_CLFAR_RITS 12 THRU 



;S17.E FOR 
;SIZE FOR 
;SI7.E FOR 
}Sltt FOR 

?si7:e for 

?SIZE for 



EV 
EVS 
EYS 
EVS 
DEVS 
OEVS 



15 



;taTAL NUMBER OP DEVS 

;dato or oati indicator 
;l0c to save r5 

;cyclf count for a byte transfer 
;c¥cl»? count for a oato transfer 
; cycle count for a dati transfer 

j| OF DEVS DOING A DATq/BfS) 
;« OF DFVS DOINGA OATI/piCS) 
JffSED TO SET EXTENDED MEMORY ADDR BITS 
JSIZE OF BUFFER FOR DATI/P(S) 
;SIZE OF BUFFER FOR DATO/R(S) 
;VIRTUAL AUDR OF WRITE 8UFFFR 
JPHYSICAL ADDR OF WRITE BUFFER 
;EXT mem ADDR BITS SET BY MONITOR 
;VIRTUAL AOOR OF READ BUFFER 
;PHySICAL ADDR OF READ BUFFER 
;EXT MEM ADDR BITS SET BY MONITOR 
; TOTAL SIZE OF BUFFER RESERVED FOR READS 
;USKO TO POINT TO LOC WITHIN RBUFSZ 
;USED FOR LAST ADDRfPHYS ICAL ) OF READ 8DFF 
JOSED TO POINT TO LOC HITHIN WBUFSZ 
;nSED FOR LAST ADDRfPRyS ICAL ) OF WRITE RUFF 
;fun 2-DATI-INTP 
^ "ATU8-INTR 

-INTR 



;fun 2-DAT 



;FUN 1-DATIP/NO ROT 
;FUN i-OATO-INTQ 
;USED TO SET REQUEST LEVELS OF DEVS 
;USED TO CHECK IF ANY FKROR BITS SET 

;DEV DATA REG CONTENTS 
;DEV CYCLE COUNT CONTENTS 
;DEV ADOS REG CONTENTS 
;DEV CRl REG CONTENTS 
;DEV CR2 REG CONTENTS 
;BAD MEMORY ADDR 
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000400' 
000400' 

000406' 



?????? 




PTH2: 

TOCNT: 

start: 

2$: 



DV 

MASS" 

-1 



MOV 

MOV 

MOV 

MOV 

ASR 

aEQ 

8CC 

ADD 

ADD 

INC 

BR 

MOV 

8TC 

MOV 

MOV 

BNE 

JMP 

JSR 
JSR 



ECONTENTS OF BAD MEf*ORY 

JTHIS POINTER IS USED SO THE NEXT 
}fM LOCATIONS MILL BE PRINTED OUT FOR 
;AN err SHClfl DFVICFS DTD NOT INTFHPUPT 
JTIME OUT COUNTER 



361 ^WDTO 

36l,WDFR 

I^INTR 

VtDl,RO 

3$ 

J?" 

DVIDl-DV 
B12T1^,0V 
DV^MASK 
DV^ MORE 

DROP 

PCrCLRREG 
PC, SETUP 



******************* 



;SHIFT IN A COUNT 
;BR OUT IF NONE LEFT 

;36f MORE WORDS FROM MEM 
;l MORE INTERRUPT 
I GO CHECK FOR MORE 
^J^9X.I S^Pl TO TEMP STORAGE 
;ENSURE BITS 12-15 ARE CLEARED 
'lUl U^^ BITS EQUAL TO DVIOI 
^li^'^Sr.SfT UP WORKING AREA 
'SP^^O^IS IF THERE ARE DEVS 
;ELSE DROP THE MODULE 

;CLFAR ALL DEV REGS 

;SET UP AVAILABLE VEC LOCATIONS AND 
JGET BUFFER SIZES FOR DATO(S) I DATT(S) 



THIS 
WITH 



************ ft* -k 1i*-tti,i!lf^ii«,it if if ^HitaeffttitltA-it* It It-It 

JNQTE: IN THE FOLLOWING COMMENTS THE TERM READ IS USED 
^DATrOR^ATo" °^ "^"^ ^ER^^RITE DENOTES^'' 

eft ********** 



RROFPA^ENDRRF 
#736,ENDRRF 



GETPAS, BEGIN, RRU^VA 

MOV RROFPA, 

ADD 

GETPAS, BEGIN- WBUFVA 
MOV (^RUFPA^ENDWBF 
ADO »736,FMDWBF 



JSR 
MOV 



CLR 
MOV 



PC,FARITS 
ttUOOOl 



ROTCNT 

#Pl,SftVRl 



.w„„o ^J^^t PHYSICAL ADDRESS FROM 16-BTT RBUFVA 
?iHF^?P2n"^l£ TO ENU-OF-READ BUFF REG 

;ADD 736 TO GPT LAST ADDR OF BUFFER 

.„r.„c ..olSS'^r.KHXSICAL ADDRESS FROM 16-BIT WRUFVA 
'.^R^^t^^^li f2l^!P2*< ^0 END-OF-HRITE WF REG 
?ADD 736 TO GET LAST ADDR OF BUFFER 

'Sfl^'^F? & I OF RfeA EQUAL TO 
?BITS 4 & 5 OP RBUFBA RESPECTIVELY 
;INTT XFER INDICATOR tS 1 SO THE 
'i?l.pC WILL SIGNIFY A DATI 
^^fc^l^o^ftXTEfiN ROTATION COUNT 
; INTT SAVRl TO 1ST PATTERN 
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377 00D624' 
I?! 006632'' 



012737 000344' 

012737 000060 



000274- 
000354- 



»XFRl#SAVR5 
»60,RQLVL 



UNIT SAVR5 TO 1ST tFER PHNCTION 
;IMIT REQUEST LR?EL TO NPP/TNTH BR7 



5THIS IS THS LOCATION THE PROGRAM iTLL PROCEEP WITH 
lAFTER hH ITERATION 



023737 

001 4a2 
004737 

013737 

013737 

000137 



000242* 000240- 



m266' 
242- 
000242- 



000270- 
000244- 
000240- 



000704 
000704- 004737 002402' 



000722- 
000730' 
000736" 



013737 

163737 
013737 

163737 



006237 

103404 
001440 
062700 
000771 

004737 
005237 
032737 
001003 
004737 
000402 

004737 



0Q00Q6- 
000320- 
000314- 
0Q0326- 
000312- 



000244- 

000020 

001742- 

mitr 

002070- 
002016- 



000340- 
000340- 

mm- 



CMP 
BFQ 
JSR 

plOV 

MOV 
BHE 
JHP 

JSR 

Moy 

MOV 
SUB 
(40V 

sua 



4SR 
BCS 
BEQ 
400 
B» 

JSR 
IMC 
BIT 
BME 
JSR 
flR 

JSR 



IS 

PC, SETUP 

DODI^SVDOOl 
MAST, MORE 

DROP 

PC^RESDAT 

ADORjpRO 

MBUPPA,W8FADR 

yRUF.^BFADR 



MORE 
4S 

GO 

||0,R0 

PC^CHRKPX 
DODI 

|BIT0,OODI 

PC/RREGS 

6 S 



;|^0F DEVS THAT SHOULD TMTR=# OF DEVS THAT DID? 

;tf equal, go to 2s 

;rlse gft heu dev counts si bufffr sizes 

;save dodi setting 
jreset more bits 

J IF km DEVS DROPPED, ALTER DV 
;IF NOT, CONTINUE ON 
;ELSE DROP MODULE 

^RESTORE DATA IN READ BUFFER 
?ANO CLEAR WRITS BUFFER 
;PUT DEVICE ADR INTO REG- 
;lfSE WBFADR AS WRITE RUFF ADDR 
UNIT TO WRITE BUFF LESS WBHF 
;USR RBgADR AS READ B«|F ADDR 



; INIT TO READ BUFF LE 



R8UP 



JCH^CK FOR ANOTHER DEV 
;IF THERE, CONTINUE 
; AND TF^NOT, HO TO GO 

;ELSE ADD 20 FOR NEXT ADDR 
;ANn CHECK FOR MORE 

;SEE IF Rl S R5 NEED INITIALIZATION 

;TNC XFER INDICATOR 

;IF BIT OF DODI IS I 

?G0 SFT UP REGS FOR DATO(S) 

;ELSE SET UP PEGS FOR DATI(S) 

;G0 LOAD THE REGISTERS 



?aT THIS POINT 

;?HftMSFRRS 



PC^^REGS JSET PEGS FOR feiRITE XFER INFQ 

THE DEVICE REGISTERS WILL RE LOADED TO DO 



001022" 
001030- 
001032- 

001036- 

001042- 
001046- 

001052* 



011220 
011320 

013760 000310- 
012510 

053710 000354- 
062700 000012 

010137 000272- 
010537 000274- 
000734 



MOV 

MOV 
*<0V 
MOV 
MOV 
3IS 
ADD 

MOV 
MOV 
HP 



(Rl )*,(RQ)+ 

(R3L(R0j4. 
EABIT,10f RO) 
(R5)+,f ROJ 
RQLVL,(R0) 
#12,R0 

Rl,SAVkl 

R5,SAVR5 



;SET UP DATA RUFFtTR RFG 

;SET UP CYCLE COUNT RFG. 

;SET UP ADDR REG 

;SET UP EXT ADDR BITS IN CR2 

;SET UP CRl 

>SET REQUEST LEVELS 

;SDD 12 TO GET NEXT DRV ADDR 

;SAVt CONTENTS OF RHLAST DATA PATTERN) 
;SAVE CONTENTS OF R5(LAST XFER INSTP. ) 
;G0 LOAD ANOTHER DEVICE 
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000406- 
000242- 



005277 177146 



001 
001 



104407 
164 407 
023737 
001411 
005337 
001365 
104403 
005004 
004'I37 



000000- 
OOOOOQ- 

000240- 000242- 
000406' 

000000- 003122- 
002502- 



CLR TOCNT 

CLR MASff 

INC (aSIMLGO 

BREAKS, BEGIN 
BREAKS, BEGIN 
CMP OV,MASK 
BEQ QkfkC^ 
DEC TOCNT 
BNE BRK 
MSGNS, BEGIN, NOJNTR 
CLR R4 
JSH PCGETORV 



;CLEAP TIME OUT COUNT 

;CLEAR ALL BITS IN MASK 

;T0 BE RESET IN INTP SERV HTNS 

;SET OFF »LL DEVS 

; TEMPORARY RETURN TO MONITOR.... 

JTHEN CONTINUE AT NEXT INSTRUCTION. 

; ALL DEVS INTR? 

;TF YES, GO TO DATACK 

;ELSE dec TIME OUT COUNT 

JAND BREAK IF NOT 

; ASCII MESSAGE CALL WITH COMMON HEADER 
;R4 INVALID IN ERR REPORT 
JREPORT NON-IHTR-G DEVICES 



001132" 
001140- 



IP 

410 



478 
479 
480 

481 
482 
483 

488 



ill: 

im 

00120: 
00120 

001211 
00121 



001216 
001224' 



001254 

001260 



mm 



013737 
013737 

013700 
012737 
012737 
66- 005003 



006237 
103405 



000240- 000244- 
000270- 000266- 



mm- 



062700 
000770 

105760 
100407 
104403 
005004 
004737 
000426 

033760 
001407 
104403 
005004 
004737 
000413 

005237 
032737 
001003 
004737 
000402 

004737 



000334- 
000340- 



000020 
000006 

000000- 003102- 
002556- 

000356- 000016 
000000- 003106- 
002556- 



000266- 

000501 000266- 



002162- 

000020 



MOV 
MOV 

MOV 
MOV 
MOV 
CLR 

ASR 
BCS 
BNE 
BR 



TSTR 
BMI 

MSGN$< 

CLR 

JSR 

BR 

BIT 

BRQ 

MSGNS, 

CLR 

JSR 

BR 

INC 
BIT 
BNE 
JSR 
8R 

JSR 



DV,MORE 
S?DODT,DODI 

ADDR,RO 

«RKEDTN,RBFADR 
|WRTOUT,WRFaDR 

MORR 

2S 
IS 

NPASS 



BEGIN, NHSRT 



EPBITS,16CR0) 
4S 

BFGIN,ERRSfcT 
R4 

PC,RDDATA 
NXT 

DODI . 



;SET UP MORE 

?RESTORB DODI TO SETTING WHEN 
;LQADING 1ST DEV 
JTNIT RO TO 1ST DRV ADDR 
;RBFADR=1ST LOC IN READ BUFFER 
jyBFADR=lST LOC IN WRITE REFER 
;OSFD IN DODATA RTN 

;CHRCK: FOP OTHER DEVS 

; IF THERE CONTINUE 

;IF SOMF LEFT, GO CHFCC FOR MORE 

;ELSE GO TO END OF PASS RTN 

;GET next DRV ADDR 
;G0 CHECK FOR THAT DEV 

;TS READY BIT SET IN CRl? 



;TF SRT, CONTINUE 
JASCII MESSAGE CALL WIT.. 
;R4 INVALID IN ERR REPORT 



R CALL^WTTH COMMON HEADER 



PCDODATA 
»20,R0 



;RLSE TYPE OUT CONTENTS OF ALL DEV REGS 
; AND GO CHECK FOR NFXT DEV 

;SEF IF ANY ERROR BITS SET 
; IF NONE SET, CONTINUE 

; ASCII MfcSSAGF CALL WITH COMMON HEADER 
JR4 INVILTD IN ERR REPORT 
JRLSE TYPE OUT CONTRNTS OF ALL DEV REGS 
J AND GO CHECK FOR NFXT DEV 

?INC XFER INDICATOR 
;nATl OR DATO ? 
J IF DATO, GO DO IT 
ICHRCK DATI XFERS 
;CHRC!r FOR NEXT DEV 

;CHRCK- DATO XFEPS 

J ADD 20 FOR NFXT DEV ADDR 



BEAB DEC/Xll SYSTEM EXERCISER MODULK 
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489 001314' 000137 001170- 

439 59132-- 
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111 



004737 

001324' 004737 

001330' 022737 000352' 000274' 
001336' 001010 



0Qlfi46' 
002276' 



00 [ 
00 




166' 001402 
170' 004737 



1374- 104413 
001400' 000137 



001404' 
001404- 



414- 
430- 



it- 
m- 

464' 
470' 



mm 



000020 

000001 
002704* 

000000- 
000640' 



000264- 



104410 000000' 



005037 000306- 
005037 000304- 
012700 002742- 

000266- 

006237 000244- 
103406 



. ^ _ 000010 

065701 000004 
000767 

005237 000266- 

004737 C01622' 
010021 



PC^CLRREG 
PC-ROTRQS 
ffXFR4 " 



;gu check for another dev 

iclear all de9 recs 
;shift request to next rr level 

~EEH DONE? 



JAFTER 
IRl TO 



25: 



CMP #XFR4,SA¥R5 ;HAS LAST XFER REEI 

P2 & P4 HAVE BEEN ROTATED 16 TIMES, ILLO« THF POINTER 

*y5§I^ISLI3SLI!li*e8*8LISL8il2J2fIILI"^ "o^^'f ^^-t-o^ rotation 



CMP 
BEQ 
INC 
JSR 

BIT 
BFQ 
JSR 



J16./R0TCNT 

rStcnt 
pc/rotpat 



PC^SMAPCC 



EUDITS^BEGIM 



RBRRST 
*********** 



******* 



JELSE HAS P2&P4 BEEN ROTATED 16 TIMES? 
;IF YES DON-T ROTATE PATTERNS ANYMORE 
JRLSE IMC ROTATION COUNT^ AND 
; ROTATE DATA PATTERNS 

;IS THERE AN ODD # OF DEVS? 
?TF NOT,GO TO 5$ 
JELSE SWAP RCC WITH HCC & RBUF 
J WITH MBUF FOR CORRECT XFER INFO 

|g5Sii*fiR^§8,E[ PASS 

SELSE GO TO REREST 

***i****i***** ft*** ********** 



ENDS, BEGIN ; 
^ ************** ************«*»««*««■«* ft.«»««ftft««*A«jt 
************************************************** 

ir.KXS J°HXI^I„'*Ikt SET^OP THE DEVICE INTO VECTORS, COONT THF 
>N0M8FR OP DEVICES, SET THE TRANSFER SITIE OF THE READ AND WRITE 

|SlfSIL«fs*l*«g*ill*§g*IUi*illg*IS§*gSlli*sms*S8yFs- 

* ************************ ftft«ft«»«[r»«»**«*»********ft« 

setup: 



CLR 
CLH 
MOV 
i^OV 
MOV 

ASR 
BCS 
9FQ 
ADD 
ADO 
8R 

INC 
JSR 

MOV 



DICNT 
DOCNT 
#ISP1,R0 
VRCT0R,R1 
«l/00DI 




;CLFAR REG COONTING DFVS DOING DATI(S) 
JCLRAR REG COHNTING DEVS DOING DATOfS) 
;SET RO TO 1ST INTR SERVICE RTN 
;SET Rl TO 1ST INTR VEC ADDR 
;INIT XFR INDICATOR TO 1 

;CHRCfC FOR A DEVICE 

;TF THERE, CONTINUE 

;TF NONE LEFT AT ALL, GFT OUT 

;RLSE INC INTR SERV POINTER BY 10 

JANH TNC INTR VEC LOC BY 4 

;G0 BACK AND CHECK FOR ANOTHER DEV 

? INC XFRR INDICATOR 
;INC DATI OR DATO COUNT 

;MOVfc ADDR OF INTR SERV RTN TO VEC LOC 



BEAB DEC/Xll SYSTEM EXERCISER MODULE 
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545 

If 

lis 

550 
551 



555 
556 

111 

559 

n\ 

562 
563 
564 
565 

ip 
III 

11° 
574 



472' 

476' 

,500' 

.504' 

*506- 

- -_506- 

001514' 
-jj. 



526' 

IP- 

532- 
536' 
540- 

544' 

JlJ-' 

00156Q' 
001564' 

001574' 

mm- 

001600- 



i 



Q62700 
000754 

013737 
005337 

mii\ 

005720 

'm 

103773 
011037 

imv, 

005437 
QQ5737 
001405 

mw 

005301 
005740 



011037 000314' 



000012' 
000010 



000266' 000264- 
000264' 



000312- 

000102- 
000302- 
000302- 
000304- 



ill iip:- m 

578 001620- 000207 



57 L 
579 
580 
581 
582 

\%\ 

m 

587 
588 
589 
590 
591 
592 
593 
594 
595 
596 

\u 

III 



000300' 
000300- 
000300- 



032737 OOOOOl 000266' 

001630- 001003 
001632- 005237 000306- 
001636- 000402 

88{i40- 005237 000304- 



001644' 
001644' 000207 



MOVB 
TSTB 
ADD 

m 

40V 
DFC 



TST 

BLO 
MOV 

MOV 
ASR 
NEG 
TST 
BEQ 

CMp 

BFQ 
DEC 

s= 

MOV 

MOV 
ASR 
NEG 
RTS 

************ 



8R1« (Rl)+ 
(Rl>* 



m 



DnDT,DEVCNT 
DEVCNT 

|BOFSZ-2,R0 

(RO)* 
Rl 

R1,DICNT 
IS 

(RO),RBUF 

(RO),RCC 

RCC 

RCC 

DOCNT 

2$ 



?MOVE BRl VALUE TO PSW VEC 

;GET BACK TO AN EVEN ADDR 

;ADn 10 TO RO FOR NEXT INTR SRRV RTN 

;SEF IF THERE ARE MORF DEVS 

;DEV XFRR INDICATOR HAS » OF DEVS 
I, SO DEC DfcVCNT BY 1 

;SET RO TO SIZE TABLE 
;CLEAR Rl 

;MOVE POINTER TO NEXT VALUE 



fINC COUNTER 
;R1=# OF DATI UFV5 7 
?IF MOTjINC COUNTER & POINTER 



5i«^- _ - - . 

HAS SIZE OF PEAD BUFF PER DEV 
}l WORD = 2 L0CATI0NS(0R BYTES) 
;AND ALSO IS DATI XFER COUNT 
;WHRN IT IS HALVED 
;GET 2'S COMP FOR DEV CC REG 
;IF DOCNT IS 

;G0 use the value RO POINTS TO 



Rl 



DOCNT 



-(RO) 
(RO) ,WBUF 
(RO),WCC 

ycc 

WCC 
PC 

************ 



;Rl=tf OF DATO DEVS ? 
;Y£S, CONTINUE 

;no, dec Rl 
;ano dec pointer 

jro has size of write buff per dev 
?1 word = 2 locattonscor bytes) 
;and also is dato xfer count 
;hhfn it is halved 
;get 2's comp for dev cc reg 

« pgTUPN 

r* ******** ********************* 



• ************************************************* 
p ************************ ************************* 

;THIS ROUTINE WILL COUNT THE NUMBER OF DEVICES DOING OATICS) 
?ANO THOSE DOING DATO(S) 

• ************************************************* 
************************************************** 

INCCNT: 



INCDO: 
EXINC: 



BIT 
BNE 
INC 

BR 

INC 



»3IT0,0nDT 
INCDO 
DICNT 
EXINC 

DOCNT 



;TF BIT IS 1 
J GO INC DOCNT 
JELSE INC DTCNT 
;AND EXIT RTN 

?TNC DOCNT 



RTS PC IRITURN 

• ******************************************* 



************** 



BEAR DEC/Xll SYSTEM EXERCISER MOOdLE 
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001646 








001646 




013737 


000240- 


001654 




013701 


000006'' 


001660 








001660 




006237 


000244- 


001664 




103404 




001666 
001670 






000020 


001674 




000771 




001676 








001676 




005011 




001700 
001704 




005061 


000QQ2 




nnti 


00Q0Q4 


001710 
001714 






000006 




005061 


000010 


001720 




005061 


000016 
000020 


001724 
001730 






001732 








001732 




013737 


000240- 


001740 




000207 
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;thts routine mill clear all the rehisters of all existing devices 

; AS DSFINFD BY DVIDl 
^ ************* 



CLfiREG: 



MOV 
MOV 

ASR 
BCS 
BEQ 
ADD 
BR 



CLR 
CLR 
ADD 



MOV 

********* 




DV/MORE 

PC 

r* ******* 



******* 



;RESTnRE MORE 

; INIT R1 to 1ST DEV ADDR 

; IS THERE A DEVICE? 
;IF YES, GO SET IT UP 
;IF NONE LEFTt - GET OUT 
;FLSE IMC Rl TO NEXT DEV AODR 
; AND GO SEE IF IT'S THERE 

;CLEAR DATA SnPFER REG 

;CLPAR CYCLE COUNT REG 

;CLEAR BUFFER ADDR REG 

;CLKAR CRl REG 

;CLFAR ERROR CLEAR REG 

;CLPAR CR2 REG 

;IWC Rl TO NEXT DEV ADDR 

;G0 CHECK FOR ANOTHER DFV 

;restore more 

JRETURN 
********* 



******************* 



;THIS ROUTINE W 
;FUNCTIONS nSED 

»************■*■-•■ 
J ************ 



*********************************** 

*********************************** 
ILL KEEP TRACK OF THE DATA PATTERNS AND TRANSFER 
TO LOAD THE DEVICES 

*********************************** 
******************************* 





013701 


000272- 


001746- 


013705 


0Q0274- 


001752- 


022705 


000352- 


001756- 






001760- 


him 


000344- 


001764- 






001764- 


022701 


000232- 


001770- 


loogii 

022737 




001772- 


000020 000234- 


002000- 


001003 




002002- 


023701 
100002 


000336- 


002006- 




002010- 






002010- 


012701 


000224- 


002014- 






002014- 


00020T 





CHEKPX: 



MOV 
MOV 
CMP 
3PL 

HOV 

CMP 

9PL 
CMP 

BNE 
CMP 
8PL 



^OV 



2S: 
3S: 

J************* 
************** 



SAVRlrRl 
SAVR5rR5 

|XFR4,R5 

#XFRlrR5 

|P4,Rl 
||6.,R0TCNT 

EVDRBF^Rl 

3S 

»PlrHl 



; RESTORE Rl TO PATTERN IN SAVRl 
;REST0RE R5 to XFR function IN SAVR5 
;DQES R5 POINT TO LAST XFER? 
;IF NOT# CONTINUE 
;FLSE INIT TO 1ST XFER 

/IF Rl DOES NOT EXCEED LAST PATTERN 
; ADDRESS, EXIT ROUTINE 
;HAVE P21p4 been rotated 16 TIMES? 
;IF NOT, INIT Rl 

; IS Rl AT LAST ADDR OF READ BUFF? 
;IF LFSS/GO TO EXINIT 

;ELSE INIT Rl TO 1ST DATA PATTERN 



******************< 
************************** 



********* 



BEAR DEC/Xll SYSTEM EXERCISER MODULE 
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657 
658 
659 
660 
661 
662 
66J 

tts 002016- 012702 000300' 
666 002022- 032715 000400 
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*********************** jij^^^^^^^^j^^^j^^^^^^^^^^^^^^^ 

-'^LL DETERMINE IF THE TRANSFER IS A DATQ OR A mrnn 
ANO SET THE CYCLE COUNT APPROXIMATELY VIA R2 AND AT SO ^FT Rl In 

iSi*SSRSECT WRITE BUFFER ADORES * " 

**i* ********** t*S;**5f***S*8i{i{55-'j^^»^^^^^^^^^^^^^^^ 

********************** 



****************** 



669 
670 

IV2 

673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 

m 

687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
6 99 
700 
701 
702 
703 
704 

Vol 

707 

W9 

m 

111 



mm- 

002022- 
002026- 
002030- 
002034- 
002036- 
002042- 
002050- 
002054- 
002054- 
002062- 
002066- 



001000 
000276- 

000300- 000276- 
000276- 

063737 000314- 000340- 
012703 000340- 
000207 



MOV 

BIT 
BEQ 
BIT 
8FQ 

tiny 

MOV 

is: 

ADD 
MOV 

RTS 

• ************* 



«WCC,R2 
#BITB/(R5) 

BIT9^(R5) 

»BYTCC,R2 
WCC-BYTCC 

BVTCC 

WBUF/WBFADR 
igBFADRrRS 



*********** *******4 



;SET R2 FOR A DATO CYCLE COUNT 

? IF BIT 8 OF XFFR FUNC IS 

; ALL SET, FINISH UP 

Hf, BIT ^ 91 XFER FUNCTION 

/ALL SET/ FINISH UP 

;ELSE SET R2=ADnR OP BYTCC 

;MgVE VALUE OF WCC TO BYTCC AND 

^******* 



************** 



*********** ft ************ *^^J^<J^^^^^^^^^^^^^^^^^^^^ 
****************** ********^^^^^J.^^^^^^^^^^^^^^^^^^ 

* ft *********** ****************^j^^^^^^^^^^^^^^^^^^^ 



002070- 
002070- 
002074- 



012702 000302- 



063737 000312- 000334' 
012703 000334- 
000207 



'151 MJ^^ * D^TI CYCLE COUNT 

8F*"Sr,*S9?..«^ VALUE IN RBUF 
iUlM = ^^^'"'^ RRFADP 




013703 000334- 
063703 000312- 

013704 000334- 



RREGS: 

MOV PCC/R2 
ADD R8UF/RBFADR 
MOV #RBFADR/R3 
RTS PC JRET URN 

,*****ft***ft********»**********^^{^*|^^^5^^^^^^^^^^^^^^^^^^^ 

**************************** ***^^^^(j^^^^^^^^^^^^^ 
*»********ft***************a^^**j^^^^^^^^^^^^^^^^^^^ 

THIS ROUTINE CHECKS FOR ft CORRECT DAT! TRANSFER STWCF Iff dp thf 

********* ft*** ********* ft*ft*****************<^^^^^^^ 

DIDATA: 



MOV 
ADD 

NOV 



RRFADR,R3 
RRUF,R3 
RRFAOR, R4 



00140. 
104403 
005744 
004737 
000402 

020403 



000000- 003112- 



JR0)/(R4)+ 



CMP 

BEQ 2S 
HSGN$,BFGIN/DIERR 
TST -(R4) 
JSR PC/RDOATA 

BP 3S 



CMP 



R4/.R3 



/SET P3 = 1ST READ BUFF ADDR 

m E'ffiL'WME"' ™" """" 

; AND TYPE OUT CONTENTS OF REGS 
/GO EXIT 

;IS R4 = LAST XFER LOCATION? 



BPAB D£C/?ril SYSTKN EXERCISKR MODULE 
XBEABO.Pll l2-tlCT~78 lls46 



m m 



Ml 

717 
718 
719 

721 
722 
723 
724 
725 

w 

72R 
729 

m 
11 

734 
735 

W 

730 

iw 

743 
744 
745 
746 
247 
748 
749 
750 
751 
752 
753 
754 
7 55 
756 
757 
758 
759 
760 

763 

766 
767 
768 



002150' 
002152 



103765 



002 
002 
002 



002 
002 



0022 

m 

ooli 

0022 
0022 



162' 
62' 
66- 



002240 

002246' 001403 
002250' 052737 
002256' 



MACYll 10A(1052) 12-r)CT-78 

IS 



002152' 063737 
002160' 000207 



000112' 000334' 



BLO 

3SS 

km 

RTS 



013703 
063703 
013704 

Q21024 
001407 
104403 
005744 

88o422 

020403 
103765 

063737 
000207 



000340" 

000000' 003116' 



000314' 000340' 



005037 000310' 
032737 000020 



000330' 
000001 000310' 



002256' 032737 000040 000330' 
002264' 001403 
002266' 052737 
002274' 

002274' 000207 



16:18 PkGF 17 

;IF NOT/ CHECK NFXT ADDH 



RBUF^fJBFADR jINC READ BTIFF ADDR BY ^BtlF VULOE 

PC ;RETURN 



J ******* 



i^****]»«»flr*«*****«*ft*******ft*«**»*ft**ft** 
****** ************************ ********* 

;this rootihe checks for correct dato transfers all values tn the 

jarlte trinsffr buffer is compared «ith the contents in the dfvtcb 

?54T4 BflFFER RERISTKR 

* *********** ************************************** 
5 ft *********************************** ************* 



DOOATA! 



2$s 
3Sl 



MOV 
ADO 

mv 



CMP 
BLO 

ADD 

RTS 

********* 



HBFSDR,R3 

aBUF^R3 

SBFIDR,R4 

^R0)^(R4)* 

-(r4) 

|C,BDDATA 

R4,R3 
1$ 



CMP 

BEQ 5S 
MSGMS, BEGIN, DOERR 
TST 



JSET R3 = PRESENT WRITE BOFF ADDR 
;INC R3 BY # OF XFER LOCATIONS 
jSET R4 = PRESENT MRITE BUFF ADDR 

;IS DFV DATA REG = VALUF IN BUFF ADDR? 
?TF EQUAL* CONTINUE 

? ASCII MESSAGE CALL HITH COMMON HEADER 
; RETURN K4 TO ERR LOCATION 



;TS H4 AT LAS? XFSR LOCATION? 
;IF NOT, GO CHECK NEXT ADDR 



(•**** *********************** ************** 



J************************************************* 
• ************************************************* 
JTHIS ROUTINE WILL SET THE CORRECT EXTENDED M^^MORY ADDRESS BITS 
" ""^ RgGISTER 



IN ACCORDANCE WITH THE EXTENDED MEMORY ADDRESS 
ONITOR. INRBUFBA, . 



;BITS as SET BY THE M< _ .._ - ^ 

******************************************* 
J************************************ 



000002 000310' 



2S: 



CLR 
BIT 
BFQ 
BTS 

BIT 

BFQ 
BTS 

RTS 



EABIT 

|BIT4,RBUFEA 
tfiltO, EABIT 



»BIT1,E IB IT 



JCLRAR EXT MEM BITS 

;IS BIT 4 OF RBUFEA SET? 

; IF NOT, CONTINUE 

JELSE SET BIT OF EABIT 

JIS BIT 5 OF RBUFEA SET? 

;IF NOT, RETURN 

JELSE SET BIT 1 OF EABIT 



BEAR DEC/Xll SYSTEM EXERCISER MODULE 
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769 
770 
771 
772 
773 

774 n0777fi- 

m 

777 
778 

781 
782 
783 
784 
785 

788 
789 
790 
791 
792 
793 
794 
795 
796 



002306' 

mif' 

002316' 

002322' , 

002330' 0O1QO3 
002332' 012737 
002340' 

002340' 000207 



022737 
001004 
012737 

000411 

006237 
"-lis" 



000060 000354' 
000020 000354' 



000354' 
000001 



000060 000354' 
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ROTRQS: 



98 
799 
800 
801 
802 
803 
804 
805 
R06 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 



002342' 

002342; 012701 

Mit' 032711 
002352' 001402 

002354' 000261 
002356' 000401 
002360' 
002360' 000241 
002362' 

002370' 001403 
002372' 012701 
002376' 000763 
002400' 

002400' 000207 



002402' 

002402' 012702 004324' 



002406' 013703 000226' 
002412' 012704 004324' 



CMP *60,RQLVL 

3NE IS 

HOV #?0,RQLVL 

8R 2S 

ASH RQLVL 
CHP H,,QLVL 

HOV ^60rR9L¥L 

*************** *******asfta 
. *** ft ** ft*** ****** ***************** ft *******«f*ft«**ag. 

. **************** *«*****ft***a**fta:*ft***j!rj^^*ft^ft(^^^^^ 

'l9Pn?2Fr*?S.,i^L^ ROTATE the data PATTERNS TO TRY TO EXERCISE 
fiHz. DATs LlNFSc 

. ******** **ft****************«*ft»**«ft****-ft**«****^^ 
J ******** *******»*********i^*gj ********************* 



5 IS REQUEST AT NPR WITH BR7 INTR? 
?TF NOT, CONTINUE 
;FLSE SET REQUEST LEVEL TO PR7 
;AND RETURN 

;SHIFT REQUEST LEVEL TO NEXT BR 
?IF REQUEST LEVEL DOES NOT = 1 
J THEN RETURN 

;ELSE RESET REQUEST TO NPR/RR7 INTR 



ROTPA? : 

is: 



2S: 
3S: 



BIT 
8FQ 
SEC 
BR 

CLC 

ROR 
CMP 
BEQ 
MOV 
BR 

RTS 



#P2,Rl 
|BIT0*<R1) 

3S 



|pI1ri 

|P4*R1 



UNIT Rl TO ADDR OF P2 

;IF BIT OF PATTERN IS 
;G0 CLEftfi C-BIT 

;else set c-btt 
; and continue 

;clrar c-bit 



J ROTATE DATA TO ' 
;D0ES HI POINT Tl 



HE RIGHT 

- J LAST PATTERN? 

;IF IT DOES, EXIT 
;ELSE SET R1=LAST PATTERN ADDR 
;AND GO BACK FOR MORE 



********* 



r***********A» 



.**************************** 

;THTS ROUTINE WILL SET UP THE READ BUFFER WITH ONE OR BOTH DATA 

THE NUMBER OF DEVICES AND CLEAR THE WRITE 
'IESSS*I2*I5I*S9M^PC TRANSFERS CAM BE COMPARED CORRECTLY- 

. ******************* ar*»***«r***ft ft ir****** *********** 
. ************************************************* 



MOV 
MOV 



»P£EDIN,R2 

P2,R3 

#REEDlNpR4 



;SET R2=1ST ADDR OF READ BUFF 

;SET R3= VALUF IN P2 

}SEf R4= ADDR OF READ BUFFER 



BEAB DEC/Xll SYSTKM KXKRCfSRH MODIfLK 
XBERB0«P11 12-riCT-78 lis 46 
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000312' 


IS: 


4DD 
MOV 


005262' 




CMP 
BLQ 
CMP 
BHI 


oooai?" 

000232' 




ADD 




CMP 
8KQ 


000232' 


2S! 


MOV 

BR 


000226' 


3$: 


MOV 
BR 


003362' 


4S: 


MOV 
CLR 


004320' 




CMP 
BHI 
RTS 



000001 
000006' 

000240' 

010000 
000020 

000242' 
002556' 



; inc r2 to last xfer aodr 

;move pattern into read buff addh 
;ts r4 last addr in read buff? 
?if it ts,so take carp of it 
; is k4 at last xffr addr? 
j if not^go to next aodr 
j inc r2 to last addr of next xfer 
;ts r3 = value in p4? 
;if it is, go take carf of it 
;else set r3 = p4 
; and go ahaim 

;RBSET R3 = P2 
;AN0 go again 

;SET R4 TO WRITE BUFFER 

;CLEAR BUFFER 
;EMn OF BUFFER? 

;TF NOTrCLEAR NEXT HORD OF BUFF 
iRKTURN 

********************** 



JTHTS ROUTIME ^TLL COMPARE BITS IN DV WITH THOSE IN MASK TO 
;OEfEPMIME WHICH DEVICES DID NOT INTERRUPT, THEN PRINT THEM. 

. *****************************************%******* 
************************************************** 
GPTDEV; 



am?, ^2 

R3,(H4)* 

rLr4 
IS 

RBUP',»?2 
P4,R3 
2S 

11'"' 

#l*RT0fITrR4 
||rI'0UT+736,R4 

•^■'************a**» 



MOV 
MlOV 
CLR 

BIT 

BNE 

ASL 
BIT 
BNE 
ADD 
BR 

BIT 
BME 
JSR 



R1,DV 

as 

Rl 

SlOOOO^Rl 
GETOUT 
#20, RO 
IS 

Rl,MASfC 
P?,BDD&TA 



?SBT BIT IN Rl 

;INIT RO TO 1ST DEV ADDR 

JCLFAR R4 AS NOT USED IN PDDATA RTN 

;BIT TEST DV TO SEE IF DEV THERE 
;IF THERE, CHFCK MASK REG. 

;ELSE SHIFT TO NEXT BIT 

?AT BIT 12? 

; IF YES, EXIT 

JELSE GET NEXT DEV ADDR 

;AND SEE IF ITS THERE 

;DID DEV INTR? 
;TF YES, GO CHECK NEXT ONE 
;ELSE REPORT ALL ITS REGS. 
;THEN GO CHECK NEXT BIT 



. ****************************** 



JEXIT 

*&»*** 



************************ 



************************************************* 
************************************************* 
THIS ROUTINE MILL LIST ALL THE CONTENTS OF THE DEVICE REGISTERS 
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000362' 
000362' 



934 
935 
936 



000364' 

,64' 
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;0N RFGISTERING AN INCORRFCT DATA COMPARISON OR FOR AN INTERRUPT 
JON ERROR 

J************************************************* 
I ********************************************* 
&DDATA 



002742 



092742' 

mir- 

002752' 

mtr- 



052737 
000002 



052737 
000002 



000001 000242' 

000002 000242' 



MOV 
MOV 
MOV 
ADD 
MOV 
ADO 
MOV 
ADD 
MOV 
ADD 
MOV 
MOV 



|2L****lklimL. 

HRDERS /BEGIN, DVREGS 

j********^*^'^^-^^^^ 



R4,HADR 
RO,nB 
DB,CC 
#2rCC 
CC,BA 

BA,CR1 

»2,CR1 

CR1#CR2 

#lp,CR2 

CR1,CSRA 

gCRl, ACSR 



CLR 

J**************** 



lO(RO) 
PC 



?SET UP BAD MEM FOR ERR TYPEOUT 
;DB HAS DEV DATA REG ADDR 
;M0VE DB to CC and ADD 2 
JTO GET DEV CYCLE COUNT REG ADDR 
JMOVE CC TO BA AMD ADD 2 
;T0 GET DEV BUFF ADDR RFG ADDR 
?MOVE BA TO CRl AND ADO 2 
;T0 GET DEV CRl REG ADDR 
;M0VE CRl TO CR2 AND ADD 10 
jTO GET DEV CR2 REG ADDR 
?GET BECRt ADDR 
;GET CONTENTS OF BECRl 



;CLEAt> ALL ERRORS 
? RETURN 

************************** 



J************************* ********************** ft* 
J**************************************** ********* 

;THIS ROUTINE KILL SWAP RFAD CYCLE COUNT AND BUFFER SIZE WITH THE 
;MRTTE CYCLE COUNT AND BUFFER SIZE ON AN ODD NUMBER OF DEVICES 
;RECAUSE ON THE FIRST ITERATION, ASSUMING A DEVICE COUNT OF 5, 
?3 OF THOSE DEVICES SILL BE DOING DATl(S) AND THE BUFFER SIZE 
JWILL BE SMALLER THAN THE 2 DEVICES DOING DATO(S), THEN ON THE 
;NEXT ITERATION THERE WILL BE 2 DEVICES OOING DATT(S) AND 
;3 DOING DATOCS) SO THE CYCLE COUNT AND BUFFER SIZES MUST RFFLECT 
;THIS CHANGE. 
. ************** 



. ************************************************* 



swAPCC: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



BIS 
RTI 



RCC,R2 

yCCRCC 

R2,WCC 

RBUP,R2 

WBUF/RBUF 

R2,a§UF 



#BIT0,MASK 
#BIT1^MASK 



?SAVE RCC 

;GET NEW RCC FROM HCC 
;GET new WCC FROM OLD RCC 
;SAVE RBUP 

;GET NEW RBUF FROM WBUF 
;GET NEW WBUF FROM OLD RBUF 
;RETURN 



;SET BITO TO INDICATE DFV 1 INTEHR'D 
JPETURN 

?SET BITl TO INDICATE DEV 2 INTERR'D 
;RETURN 
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975 
976 
977 
978 
979 
980 



991 

992 



063032' 

mnv 

003042- 

imi: 

mm- 

003062' 

m- 

003072- 
003100- 



mm: 
mm- 

oSlllo- 

mm- 



052737 

000002 

052737 
000002 

052737 
000002 

052737 
000002 

052737 
000002 

052737 
000002 

052737 
000002 

052737 
000002 

052737 
000002 

052737 
000002 

mw 
mw 

003304- 

177777 

042045 

051117 

050111 

047440 
047524 
047522 
042045 

mil 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 



000242- 
000242- 
000242- 
000242- 
000242- 
000242- 
000242- 
000242- 
000242- 
000242- 



020105 
051122 



052101 
042040 
042440 
000 
040504 
020122 

mm 

053105 
042522 
044502 
020124 

053105 



020111 
052101 
051122 

047524 
040504 
051105 



042101 
020124 



ISR4: 
ISR5I 
ISRfiS 
ISR7: 
ISR8: 
ISR9: 

ISRIO: 
iSRll: 

ISR12: 

NOSETt 

ERRSET: 

UlERR: 

DOERR: 

nointr: 

Mssni: 

HSSG2: 
MSSR3: 



30a(l052) 12-0CT-78 16:18 PRGE 21 
»B1T2,MISK 
»RIT3,MISJ^ 
#RIT4#MISF( 
»BIT5rMASf? 
»8IT6rMISir 
#RIT7,MJlSr 
#RlT8rM&Sff 
»BIT9,HASIC 
»BIT10#«ASK 
#BITll,MASfr 



BTS 
RTI 



BTS 
RTI 



ais 

RTI 



BIS 
HTl 



BTS 
RTI 



BIS 
RTI 



BTS 
RTI 



BTS 
RTI 



BTS 
RTI 



BTS 
RTI 

Mssr;3 

MSSR4 
-1 

MSSGl 
-1 

HSSG2 
-1 

MSSG5 
-1 

. ASCI7. 



.asciz 

. 4SCIZ 



;SET PIT2 TO INDICATE OKV 3 INTERR'O 

?RETURM 

;SET BIT3 TO INDICATE DEV 4 INTERR-D 
JRETURH 

;SET BIT4 TO INDICATE DEV 5 INTERR-D 
? RETURN 

;SET BITS TO INDICATE DEV 6 IHTERR-D 

^RETURN 

;SET BIT6 TO INDICATE DEV 7 INTERR-D 

1 RETURN 

JSET RTT7 TO INDICATE DEV 8 INTERR-D 
;RETURN 

;SET BIT8 TO INDICATE DFV 9 INTFKR-D 
> RETURN 

;SET BIT9 TO INDICATE DEV 10 INTERR-D 

;return 

;SET BITIO TO INDICATE DEV 11 INTERR-D 

? RETURN 

JSET RITll TO INDICATE DEV 12 INTERR-D 

JRETUPN 



-%DATT OR DATIP ERROR- 
-ItDATO OR DITOB ERROR- 
-ItDEVICE READY BIT NOT SET- 



041511 MSSG4: 



042524 
0425- - 



, ASCIZ "lOEVTCE INTERRUPTED ON ERROR — NOT ON DONE - 
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993 
994 
995 
996 
997 
998 
999 

1002 

m 

1005 
1006 

l8o8 
1009 
1010 
1011 



mm'- 

003270- 
003276- 

mv 

003320- 
003342- 

88111?-' 



020104 

04^lll 
042040 
052045 
046117 

043516 



047117 
051117 
020124 
047117 

mn 

042040 

83yu mm 

052117 044440 

0511Q5 

02247- 



2 

.-_362- 
000361 
000361 



042440 

026455 
047117 
000105 
043040 
044527 
053105 

052116 
052120 
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MSSG5: . ASCIZ -tTHE FOLLOWING DEVICE(S) DTD NOT INTERRUPT:%- 



.EVEN 

wrtqut: 

RFEDIN: 



RLKW 361 
.RLTM 361 
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aCSW 000102R 246K 897* 

000006R 212# 396 
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CROSS K'^FKRENCE TABLE — USFR SYMBOLS 



BIT9 = 

BREAKS^ 

BnK 

BRl 

BR2 

BTODS = 
BOFSZ 
BYTCC 
B12T15 

cSatas= 

CHEKPK 
CICMORF 



ooglsiR 



DATERS= 
DB 

OB¥CNT 

DICHT 

DID&TA 

DIERR 

DOC NT 

DOO&Ta 

DODI 

DQERR 



OOOIOOR 
001132R 

JSosloR 
000264R 
000306R 
002110R 
003112R 



890* 

321» 

477 

362 

k 

961 
964 



891* 

886* 

709 

366 

481 

934 



738 
439 
507 



872 
440 

589 



8Q5» 

445 468 
760 798 



475 
931 



937 






940 






758 


943 




762 


946 




949 






952 








955 




in 


958 




nt 


440 




545 






553 






670 


671* 


672* 


341 






888* 


889* 


890 


637« 






540 


548 




491 


60611 




892* 


893* 


894 




895* 








449« 






887* 


888 




507 


550* 


551* 


529* 


558 


591* 


700f 






971# 






§30* 


565 


568 


729» 






373* 


388 


410* 


973f 







594* 
411 



IbI1bo!p{P^ systrm^exerctssr modhlk 
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345 
274« 
216ff 



:mit 



104410 

im 

000106R 
001644R 
104400 
001520R 



P01054R 

mmn 

104405 

OOOOSOR 

000036R 

000040R 

000122R 

ooillli 

000030R 

mm 

003052 



003062R 
99W2R 

mil 



GS$ 



002772if 

mm 

003022R 

mm 

104416 
000242H 



mm" 

104402 
104401 
003125R 
003153R 



314e 

294« 

371 

264f 

305i 

ini 

2499 
592 
264e 
552t 



264f 
405 

lin 

256« 
543 
590 
223» 



960f 
96 3# 
93 3 » 
936» 
93 9« 

im 

948# 

'9nt 

2649 
275« 
943* 

l\V 

457« 

ml 

264« 

971 

973 



392 
324 
332 

901 

425 

756S 

512 

363* 

367* 

518 

473 

969« 

899* 

595« 



tu mt 

>2 



362 
433» 



588f 
593# 



262» 
464 
343* 
445 



977 
981» 



MACY] 
CROSi 



1 30A(1052) 
REFRRFNCE TftBLE 



517« 
340* 
340 

757* 



364* 
368* 



366 
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nSER SYMBOLS 



341* 



760* 
648 



441 



SEQ 0023 
450 607 625 861 



338* 



342* 
949* 



489 

389* 

468 



Mi^ ur- 



458* 
736 



931* 934* 937* 940* 



625* 




mm 
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CROSS «EF*KENCE TABLE - USER SYMBOLS 



985t 
990 i 
997f 
975» 
967S 
490» 

478 

ill 



484 



487» 

2t9 

251 



III 



237 
254 



239 
264» 



298 



241 

299 



242 
301 



243 
302 



PRT¥6 
PRtf7 



mi 



PTRl 
PTH2 
POSH^ 
P(ISH2 



RAMOS = 

RAHMUM 

RBPAOR 

RBOr 

RBUPEA 

RBOPPA 

RBOFSZ 

RBOPVA 

RCC . 

REEDIM 

RERRST 

RESO&T 

Slil" 

RES 2 
ROTCMf 

ROfRQS 
RQLfL 



376 
796 


651 
823 


838 










644 


806 


808 


833 


835 






399* 
400 
758 
363 


400* 
560* 
762 
399 


454* 
687 


687* 
702 




701 
825 


703 
832 


362 

562* 

454 

514 

820S 

3filt 


563* 
821 


564* 
824 


686 
828 




922* 




375* 

mi 

378* 
685S 


502 
427 


504* 
775 


646 
777* 


780* 


781 


783* 


376* 


430* 


638 











715* 
924 



12-0CT-78 11:46 
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386 
437* 
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CROSS HBFEHENCE TABLE — USER SYMBOLS 




397* 
398 

367 

366 

575* 

330* 

329* 

664f 

455 

377 



493 
1006* 



398* 
573* 



337* 
336* 



640 
1007« 



455* 
674 



674* 
731 



675 
744 



730 

925 



732 
926 



000000 
005266 



000 
001 



ERRORS DETECTED: 

OEFAHL? GLOBALS (lEMERATED: 

ICBFA80^XBEAB0/SQL/CRF:SYM=[)DXCOM,SBEaR0 
RON-TIME! 2 3-4 SECONDS 
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CORE OSEO: 7IC (13 PAGES) 
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